PROGRAM EjemploIF;

var
   a, b: rinteger;
   d : string[25];
   suma : real;  
{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}

 type
   TSuit = (Hearts, Diamonds, Clubs, Spades);    // Defines the enumeration
 var
   suit : TSuit;                                 // An enumeration variable 

{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

type
  Persona = Record  

    nombre,apodo:String[25];
    apellido:String[25];
    edad: integer;
       
  end;  
	

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}
   

function Hola (t,y: String; z:char):boolean;
  var
    z1: string;
	
 {function chau : bolean;
    begin
	write ("Chau");
    end;}

  begin
    z := t + y;
    chau;
  end;


begin
     suma := a + b;
     suma := a - - 2;
     suma:= a+ 4+ z * 3;
end.
